(md5): Fix error call.

diff --git a/lisp/md5.el b/lisp/md5.el
index 87309797cee8c44e3377ea752d555e78a92ce943..645bbc92826a33478ff987b5eb01642c5d6aafa0 100644 (file)
--- a/lisp/md5.el
+++ b/lisp/md5.el
@@ -70,8 +70,7 @@ MD5 is defined in RFC 1321."
          (unless (eq 0 (call-process-region (or start (point-min))
                                             (or end (point-max))
                                             md5-program nil out-buffer))
-           (error "Running MD5 command %s failed"
-                  (cons md5-program md5-program-args)))))
+           (error "Running `md5-program' failed"))))
       ;; The meaningful output is the first 32 characters.
       ;; Don't return the newline that follows them!
       (buffer-substring 1 33))))